home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / disk / docswp20.zip / DOCSWEEP.EXE / 0 / RCDATA / TFRMDOCSWEEP / TFRMDOCSWEEP.txt < prev   
Text File  |  1996-09-07  |  4KB  |  173 lines
  1. object frmDocSweep: TfrmDocSweep
  2.   Left = 399
  3.   Top = 167
  4.   ActiveControl = UpDown1
  5.   BorderIcons = [biSystemMenu]
  6.   BorderStyle = bsSingle
  7.   Caption = 'DocSweep Setting'
  8.   ClientHeight = 123
  9.   ClientWidth = 266
  10.   Font.Color = clWindowText
  11.   Font.Height = -13
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   PopupMenu = PopupMenu
  15.   Position = poScreenCenter
  16.   OnCloseQuery = FormCloseQuery
  17.   OnCreate = FormCreate
  18.   PixelsPerInch = 120
  19.   TextHeight = 16
  20.   object MRDBox: TFileListBox
  21.     Left = 0
  22.     Top = 0
  23.     Width = 266
  24.     Height = 116
  25.     TabStop = False
  26.     Align = alClient
  27.     Color = clBtnFace
  28.     Ctl3D = True
  29.     ExtendedSelect = False
  30.     FileType = [ftHidden, ftSystem, ftArchive, ftNormal]
  31.     Font.Color = clBlack
  32.     Font.Height = -13
  33.     Font.Name = 'MS Sans Serif'
  34.     Font.Style = []
  35.     IntegralHeight = True
  36.     ItemHeight = 16
  37.     ParentCtl3D = False
  38.     ParentFont = False
  39.     ParentShowHint = False
  40.     ShowHint = True
  41.     TabOrder = 4
  42.     Visible = False
  43.   end
  44.   object btOK: TButton
  45.     Left = 24
  46.     Top = 85
  47.     Width = 75
  48.     Height = 25
  49.     Hint = 'Accept setting'
  50.     Caption = '&OK'
  51.     ParentShowHint = False
  52.     ShowHint = True
  53.     TabOrder = 2
  54.     OnClick = btOKClick
  55.   end
  56.   object btCancel: TButton
  57.     Left = 168
  58.     Top = 85
  59.     Width = 75
  60.     Height = 25
  61.     Hint = 'Cancel setting'
  62.     Cancel = True
  63.     Caption = '&Cancel'
  64.     ParentShowHint = False
  65.     ShowHint = True
  66.     TabOrder = 3
  67.     OnClick = btCancelClick
  68.   end
  69.   object UpDown1: TUpDown
  70.     Left = 140
  71.     Top = 46
  72.     Width = 15
  73.     Height = 24
  74.     Hint = 'Click to set number'
  75.     Associate = Edit1
  76.     Min = 0
  77.     Max = 25
  78.     ParentShowHint = False
  79.     Position = 0
  80.     ShowHint = True
  81.     TabOrder = 0
  82.     Thousands = False
  83.     Wrap = False
  84.   end
  85.   object Edit1: TEdit
  86.     Left = 117
  87.     Top = 46
  88.     Width = 23
  89.     Height = 24
  90.     MaxLength = 2
  91.     TabOrder = 1
  92.     Text = '0'
  93.   end
  94.   object Panel1: TPanel
  95.     Left = 2
  96.     Top = 10
  97.     Width = 265
  98.     Height = 29
  99.     BevelOuter = bvNone
  100.     Caption = 'Titles allowed before auto-clearing:'
  101.     TabOrder = 5
  102.   end
  103.   object DeleteTimer: TTimer
  104.     Interval = 10000
  105.     OnTimer = DeleteTimerTimer
  106.     Left = 123
  107.     Top = 83
  108.   end
  109.   object TrayIcon: TPGTrayIcon95
  110.     Icon.Data = {<image000.ico>}
  111.     Animation.Interval = 0
  112.     Animation.Options = aoIconsInExe
  113.     Hint = 'DocSweep is running'
  114.     OnClick = TrayIconClick
  115.     OnDblClick = TrayIconDblClick
  116.     PopupMenu = PopupMenu
  117.     Left = 220
  118.     Top = 44
  119.   end
  120.   object PopupMenu: TPopupMenu
  121.     AutoPopup = False
  122.     OnPopup = PopupMenuPopup
  123.     Left = 2
  124.     Top = 43
  125.     object mnuSettings: TMenuItem
  126.       Caption = '&Setting...'
  127.       Default = True
  128.       ShortCut = 0
  129.       OnClick = mnuSettingsClick
  130.     end
  131.     object mnuClose: TMenuItem
  132.       Caption = '&Close...'
  133.       ShortCut = 0
  134.       OnClick = mnuCloseClick
  135.     end
  136.     object mnuQuickClear: TMenuItem
  137.       Caption = '&QuickClear'
  138.       ShortCut = 0
  139.       OnClick = mnuQuickClearClick
  140.     end
  141.     object N1: TMenuItem
  142.       Caption = '-'
  143.       Hint = 'On'
  144.       ShortCut = 0
  145.     end
  146.     object mnuHelp: TMenuItem
  147.       Caption = '&Help...'
  148.       ShortCut = 0
  149.       OnClick = mnuHelpClick
  150.     end
  151.     object mnuAbout: TMenuItem
  152.       Caption = '&About...'
  153.       ShortCut = 0
  154.       OnClick = mnuAboutClick
  155.     end
  156.     object N2: TMenuItem
  157.       Caption = '-'
  158.       Hint = 'On'
  159.       ShortCut = 0
  160.     end
  161.     object mnuRegistration: TMenuItem
  162.       Caption = '&Registration...'
  163.       ShortCut = 0
  164.       OnClick = mnuRegistrationClick
  165.     end
  166.     object mnuRegNumber: TMenuItem
  167.       Caption = 'Reg &Number...'
  168.       ShortCut = 0
  169.       OnClick = mnuRegNumberClick
  170.     end
  171.   end
  172. end
  173.